| Sample 5 Trigonometric etc |
Plot(1, 4)
END
FUNCTION Plot(ax, w)
SYSTEM(BackGround=995, FontSize=18)
DLG(TItle='About this script', Button='#About this script')
$max = 20 ! data point count of each curve
mtx($max, 12) = 0 ! define the size of matrix mtx
mtx($,1) = ($ - $max/2) * 7 / $max
mtx($,2) = SIN(mtx($,1))
mtx($,3) = COS(mtx($,1))
mtx($,4) = TAN(mtx($,1))
mtx($,5) = LOG(mtx($,1))
mtx($,6) = EXP(mtx($,1))
mtx($,7) = SINH(mtx($,1))
mtx($,8) = COSH(mtx($,1))
mtx($,9) = TANH(mtx($,1))
mtx($,10) = ASIN(mtx($,1))
mtx($,11) = ACOS(mtx($,1))
mtx($,12) = ATAN(mtx($,1))
DLG(Title="Built-in HicEst functions", Rs=1,Cs=1,AX=ax, X=0,MIN=-4,MAX=4, Y=0,MIN=-3,MAX=3)
LINE(AX=ax, X=mtx($,1), Y=mtx($,2), Width=w,OWX=1, TA="SIN", TZ="SIN", Draw=0)
LINE(AX=ax, X=mtx($,1), Y=mtx($,10),Width=w,OWX=1 ,Brok=3.1,TA="ASIN",TZ="ASIN", Draw=0)
LINE(AX=ax, X=mtx($,1), Y=mtx($,7), Width=w,OWX=1,OWy=1,Brok=1.1,TA="SINH",TZ="SINH", Draw=0)
LINE(AX=ax, X=mtx($,1), Y=mtx($,3), Width=w,OWX=1, TA="COS", TZ="COS", Draw=9)
LINE(AX=ax, X=mtx($,1), Y=mtx($,11),Width=w,OWX=1 ,Brok=3.1,TA="ACOS",TZ="ACOS", Draw=9)
LINE(AX=ax, X=mtx($,1), Y=mtx($,8), Width=w,OWX=1 ,Brok=1.1,TA="COSH",TZ="COSH", Draw=9)
LINE(AX=ax, X=mtx($,1), Y=mtx($,4), Width=w,OWX=1,OWy=1, TA="TAN", TZ="TAN", Draw=900)
LINE(AX=ax, X=mtx($,1), Y=mtx($,12),Width=w,OWX=1 ,Brok=3.1,TA="ATAN",TZ="ATAN", Draw=900)
LINE(AX=ax, X=mtx($,1), Y=mtx($,9), Width=w,OWX=1 ,Brok=1.1,TA="TANH",TZ="TANH", Draw=900)
LINE(AX=ax, X=mtx($,1), Y=mtx($,5), Width=w,OWX=1,OWy=1, TA="LOG", TZ="LOG", Draw=90)
LINE(AX=ax, X=mtx($,1), Y=mtx($,6), Width=w,OWX=1,OWy=1, TA="EXP", TZ="EXP", Draw=90)
DLG(L=9/10,H=1/10, Button='Quit', BackG=900)
IF($txtRC == 'Quit') SYSTEM(QUIT=1)
END